Imports System.Xml
Imports System.Data.SqlClient
Public Class dOpOtras
    Public Function Existe(ByVal CodigoOtraOrden As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOtraOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOtraOrden", CodigoOtraOrden))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblOpOtrasBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal CodigoOtras As String, ByVal CodigoOrdendePago As String, ByVal Importe As String, ByVal Fecha As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If CodigoOtras <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOtras", CInt(CodigoOtras)))
        End If
        If CodigoOrdendePago <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrdendePago", CInt(CodigoOrdendePago)))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", CDbl(Importe)))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblOpOtrasALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoOtraOrden As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOtraOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOtraOrden", CodigoOtraOrden))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblOpOtrasELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoOtraOrden As String, ByVal CodigoOtras As String, ByVal CodigoOrdendePago As String, ByVal Importe As String, ByVal Fecha As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOtraOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOtraOrden", CodigoOtraOrden))
        End If
        If CodigoOtras <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOtras", CodigoOtras))
        End If
        If CodigoOrdendePago <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrdendePago", CodigoOrdendePago))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblOpOtrasMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoOtraOrden As String, ByVal CodigoOtras As String, ByVal CodigoOrdendePago As String, ByVal Importe As String, ByVal Fecha As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOtraOrden <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOtraOrden", CodigoOtraOrden))
        End If
        If CodigoOtras <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOtras", CodigoOtras))
        End If
        If CodigoOrdendePago <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrdendePago", CodigoOrdendePago))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblOpOtrasBUSCARFILTRADO", Parametros)
    End Function
End Class
